home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / dbfast20 / reports.dft < prev    next >
Encoding:
Text File  |  1993-11-16  |  1.8 KB  |  81 lines
  1. *:
  2. *: REPORTS.DFT - Archivo plantilla para informes de dBFast
  3. *:
  4. *:    Programa: <<PROG_NAME>>
  5. *: Descripci≤n: <<DESC>>
  6. *:
  7. *:       Autor: <<AUTHOR>>
  8. *:    Copyright <<COPYRITE>>
  9. *:
  10.  
  11. SET PROCEDURE TO <<PROG_NAME>>
  12.  
  13. #DEFINE csViewClose   'View.Close'
  14. #DEFINE csCaretClose  'CARET.Close'
  15. #DEFINE csReportClose 'Report.Close'
  16.  
  17. DECLARE PFUNCTION GetModuleHandle RETURNING INTEGER IN DLL kernel
  18.  
  19. IF GetModuleHandle('CARETRUN.EXE') = 0
  20.   WRUN CARETRUN.EXE
  21. ENDIF
  22.  
  23. TALK TO CARETRUN ABOUT SYSTEM
  24.  
  25. nSeconds = SECONDS()
  26. DO WHILE (SECONDS() - nSeconds) < 3
  27.   CHKEVENT()
  28.   IF CONTACT()
  29.     EXIT
  30.   ENDIF
  31. ENDDO
  32.  
  33. IF .NOT. CONTACT()
  34.   BEEP
  35.   WARNING(csCARETRunErr,csCARETNotRun,384)
  36.   RETURN
  37. ENDIF
  38.  
  39. <<DO BEFORE>>
  40.  
  41. *: Ejecutar el mandato File.Open con el nombre de informe
  42. EXECUTE '[File.Open(<<PROG_NAME>>.RET)]'
  43.  
  44. // El mandato '[File.Preview]' permite al usuario previsualizar el
  45. // informe antes de imprimirlo. Cuando haya sido previsualizado, 
  46. // utilice el bot≤n IMPRIMIR de la ventana de previsualizaci≤n
  47. // para ejecutar la impresi≤n.
  48.  
  49. EXECUTE '[File.Preview]'
  50.  
  51. // Si desea imprimir el informe sin previsualizarlo previamente,
  52. // introduzca un comentario en la lφnea anterior y elimine el
  53. // sφmbolo de comentario (//) del mandato siguiente.
  54.  
  55. // EXECUTE '[File.Print(0,0)]'
  56.  
  57. CARETEvents = SPACE(20)
  58. IF AUTODATA('CARETEVENTS')
  59.   *: se inicia un bucle que espera la finalizaci≤n del informe
  60.   DO WHILE CARETEvents <> csReportClose .AND. ;
  61.            CARETEvents <> csViewClose   .AND. ;
  62.            CARETEvents <> csCARETClose
  63.     CHKEVENT()
  64.   ENDDO
  65.  
  66.   IF CARETEvents <> csCARETClose 
  67.     EXECUTE '[File.Exit()]'
  68.   ENDIF  
  69.  
  70.   STOPDATA('CARETEVENTS')
  71. ELSE
  72.   BEEP
  73.   WARNING(csCARETErr,csCARETNoStatInfo,387)
  74. ENDIF
  75.  
  76. TERMINATE
  77.  
  78. <<DO AFTER>>
  79.  
  80. RETURN
  81.